$bot = {};
print "\n\n ~ Welcome to you Klik Installation Interface.\n";
print " ~ This file will guide you throught the main setup process for Klik.\n ~ ";
system('pause');
print "\n\n ~ 1 Passport Accounts\n";
print "\t + What is the Bot's MSN Passport Email? ";
$bot->{config}->{passport} = <STDIN>;
chomp $bot->{config}->{passport};
print "\n\t + What is the Bot's MSN Passport Password? ";
$bot->{config}->{password} = <STDIN>;
chomp $bot->{config}->{password};
print "\n\n ~ 2 Other Data\n";
print "\t + What username do you want to use on the Bot? ";
my $input = <STDIN>;
chomp $input;
$bot->{users}->{$input} = {};
print "\t + What password do you want to use for $input? ";
$in2 = <STDIN>;
chomp $in2;
$bot->{users}->{$input}->{password} = md5($in2);
$bot->{users}->{$input}->{permissions} = "owner";
print "\t + What is the path to the Bot's Display Picture? ";
$bot->{config}->{dispic} = <STDIN>;
chomp $bot->{config}->{dispic};
print "\t + What prefic do you wish to use for commands? (recommended !) ";
$bot->{config}->{prefix} = <STDIN>;
chomp $bot->{config}->{prefix};
print "\n\n ~ 3 Style Information";
print "\t + What font would you like to use on the Bot? (Recommended Tahoma) ";
$bot->{config}->{style}->{Font} = <STDIN>;
chomp $bot->{config}->{style}->{Font};
print "\t + What effect (B, BI, I, or 0) would you like to use on the Bot? (Recommended 0) ";
$bot->{config}->{style}->{Effect} = <STDIN>;
chomp $bot->{config}->{style}->{Effect};
print "\t + What font colour would you like to use on the Bot (in hex format, but 112233 becomes 332211)? (Recommended 009900) ";
$bot->{config}->{style}->{Color} = <STDIN>;
chomp $bot->{config}->{style}->{Color};


local $Data::Dumper::Varname = "Configuration";
open (FILE, ">$confdir/settings.dump");
print FILE Dumper($bot->{config});
close FILE;

local $Data::Dumper::Varname = "Users";
open (FILE, ">$confdir/users.dump");
print FILE Dumper($bot->{users});
close FILE;

print "\n\n ~ Installation Complete! You can now run the Bot.\n ~ ";
system('pause');
print "\n\n ~ You are now ready to run the Bot. Please choose an option from below.";
&loadModule("menu");